﻿
Imports System.Data
Imports System.Data.SqlClient

Public Class Reporte_F01VA

    Dim con As New Datos.Conexion

    Private Sub MostrarReporte()
        Try
            con.conectado()
            Dim cmd As New SqlCommand

            cmd = New SqlCommand("SELECT numform,dominio,porcentajetit,apenomden,calle,numero,piso,dpto,codpostal,loccap,partdpto,provincia,argnndni,argnnle,argnnlc,extrdni,extrci,extrpasaporte,numdoc,autoridad,fechanacdia,fechanacmes,fechanacaño,soltero,casado,viudo,divorciado,numnupcia,apenomcony,personeria,numinsc,fechainscdia,fechainscmes,fechainscaño,optasi,optano,porcentajecond,apenomdenc,callec,numeroc,pisoc,dptoc,codpostalc,loccapc,partdptoc,provinciac,argnndnic,argnnlec,argnnlcc,extrdnic,extrcic,extrpasaportec,numdocc,autoridadc,fechanacdiac,fechanacmesc,fechanacañoc,solteroc,casadoc,viudoc,divorciadoc,numnupciac,apenomconyc,personeriac,numinscc,fechainscdiac,fechainscmesc,fechainscañoc,numfab,marca,tipo,modelo,marcamotor,nummotor,marcachasis,carrocnum,uso,valoradq,diaadq,mesadq,añoadq,elemento from F01_V where numform=numform")

            cmd.Connection = con.cnn
            Dim DA As New SqlDataAdapter(cmd)
            Dim TABLA As New DataTable
            Dim ds As New DataSet
            TABLA.Clear()
            DA.Fill(ds, "datos")
            TABLA = ds.Tables("datos")
            If TABLA.Rows.Count > 0 Then
                Dim reporte As New CR_F01VA
                reporte.SetDataSource(ds.Tables(0).DefaultView)
                Me.CrystalReportViewer1.ReportSource = reporte

            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            con.desconectado()
        End Try

    End Sub


    Private Sub Reporte_F01VA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MostrarReporte()
    End Sub
End Class